home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle: Internet utan modem / Internet CD.iso / web / computer / wwweps~1.com / adam / galactic.dcr / 00102.ls < prev    next >
Encoding:
Text File  |  1997-03-06  |  1.4 KB  |  43 lines
  1. on start
  2.   global offset, right, up, direction, mup, mright, shield, armor, level, max_shield, exact, speed_of_astroids, max_littleships, max_littlebullets, max_astroids, player_acc, max_shipspeed, little_ships_bullets, bullets_speed, max_bullets, bulletlist, astroidlist, lil_list, lil_bulletlist
  3.   preLoad(1, 200)
  4.   set max_shield to shield
  5.   set right to 0.0
  6.   set up to 0.0
  7.   set mup to 0.0
  8.   set mright to 0.0
  9.   set the castNum of sprite 10 to direction + offset
  10.   set speed_of_astroids to 10
  11.   set max_littleships to 0
  12.   set max_littlebullets to 0
  13.   set max_astroids to 1
  14.   set little_ships_bullets to 3
  15.   set bullets_speed to 20
  16.   set lil_bulletlist to []
  17.   set mright to 0
  18.   set bulletlist to []
  19.   set astroidlist to []
  20.   set lil_list to []
  21.   repeat with t = 1 to max_littleships
  22.     add(lil_list, birth(script "lil_ship script", count(lil_list) + 23))
  23.   end repeat
  24.   repeat with t = 1 to max_littlebullets
  25.     setAt(lil_bulletlist, t, 0)
  26.   end repeat
  27.   repeat with t = 1 to max_astroids
  28.     set n to random(2)
  29.     if n = 1 then
  30.       set h to random(200) - 400
  31.     end if
  32.     if n = 2 then
  33.       set h to random(200) + 800
  34.     end if
  35.     set V to random(800) - 400
  36.     set num to random(5) + 67
  37.     add(astroidlist, birth(script "astroid script", count(astroidlist) + 12, h, V, num))
  38.   end repeat
  39.   repeat with t = 1 to max_bullets
  40.     setAt(bulletlist, t, 0)
  41.   end repeat
  42. end
  43.